home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_15004.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  7.7 KB  |  354 lines
  1. -- card: 15004 from stack: in.6
  2. -- bmap block id: 15257
  3. -- flags: 0000
  4. -- background id: 2598
  5. -- name: rn-send
  6. ----- HyperTalk script -----
  7.  
  8. on HideLetterBs
  9.   hide card button id 11
  10.   hide card button id 4
  11.   hide card button id 5
  12. end HideLetterBs
  13. on ShowLetterBs
  14.   show card button id 11
  15.   show card button id 4
  16.   show card button id 5
  17. end ShowLetterBs
  18.  
  19. on HideListBs
  20.   hide card button id 10
  21.   hide card button id 9
  22.   hide card button id 12
  23. end HideListBs
  24. on ShowListBs
  25.   SHow card button id 10
  26.   show card button id 9
  27.   show card button id 12
  28. end ShowListBs
  29.  
  30. on NewsStateDef
  31.   global NewsState
  32.   if ("unread article" is in card field 1) then
  33.     put offset("unread article",card field 1) into offsetti
  34.     put char offsetti to offsetti+80 of card field 1 into rivi
  35.     put offset("--read now?",rivi) into off2
  36.     get char 19 to off2-1 of rivi
  37.     put "<" & it & ">" into card field "Listan Nimi" of card "rn"
  38.   end if
  39.  
  40.   if (("article" & space is in line 1 to 3 of card field 1) and (" in" & space is in line 1 to 3 of card field 1)) then
  41.     put offset(" in ",line 1 to 3  of card field 1) into offsetti
  42.     put char offsetti to offsetti+80 of line 1 to 3 of card field 1 into rivi
  43.     --put rivi
  44.     put offset(":",rivi) into off2
  45.     get offset(" (",rivi)
  46.     if it > 0 then
  47.       if it < off2 then
  48.         put it into off2
  49.       end if
  50.     end if
  51.     get char 5 to off2-1 of rivi
  52.     put "<" & it & ">" into card field "Listan Nimi" of card "rn"
  53.   end if
  54.  
  55.   hide message
  56.   put space into NewsState
  57.   --  unread articles in
  58.   if offset("unread article",card field 1) > 0 then
  59.     put "List" into NewsState
  60.     ShowListBs
  61.     HideLetterBs
  62.   end if
  63.   if offset("End of article",card field 1) > 0 then
  64.     ShowLetterBs
  65.     HideListBs
  66.     hide card button id 5
  67.     put "Letter end of" into NewsState
  68.   end if
  69.   if offset("--MORE--(",card field 1) > 0 or offset("[Type space to",card field 1) > 0  then
  70.   ShowLetterBs
  71.   HideListBs
  72.   put "Letter more" into NewsState
  73.   show card button id 5
  74. end if
  75.  
  76. put NewsState into card field "UserMessage"
  77. end NewsStateDef
  78.  
  79. on opencard
  80.   -- put "Card Open"
  81.   -- NewsStateDef
  82. end opencard
  83.  
  84.  
  85.  
  86.  
  87. -- part 2 (field)
  88. -- low flags: 02
  89. -- high flags: 6007
  90. -- rect: left=8 top=71 right=337 bottom=505
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 4
  95. -- text size: 9
  96. -- style flags: 0
  97. -- line height: 12
  98. -- part name: Field 1
  99.  
  100.  
  101. -- part 3 (field)
  102. -- low flags: 01
  103. -- high flags: 2002
  104. -- rect: left=435 top=17 right=34 bottom=509
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 4
  109. -- text size: 9
  110. -- style flags: 0
  111. -- line height: 12
  112. -- part name: LineCount
  113.  
  114.  
  115. -- part 8 (field)
  116. -- low flags: 01
  117. -- high flags: 0004
  118. -- rect: left=281 top=325 right=342 bottom=486
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 0
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: UserMessage
  127.  
  128.  
  129. -- part 9 (button)
  130. -- low flags: 80
  131. -- high flags: A003
  132. -- rect: left=58 top=57 right=74 bottom=164
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Read this list
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   openascii
  144.   writeascii "y"
  145.   put space into card field 1
  146.   displayscreen "dis"
  147.   NewsStateDef
  148.   closeascii
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 10 (button)
  154. -- low flags: 80
  155. -- high flags: A003
  156. -- rect: left=57 top=20 right=39 bottom=165
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Next list
  165. ----- HyperTalk script -----
  166. on mouseup
  167.   openascii
  168.   writeascii "n"
  169.   put space into card field 1
  170.   displayscreen "dis","read now?"
  171.   NewsStateDef
  172.   closeascii
  173. end mouseup
  174.  
  175.  
  176.  
  177. -- part 12 (button)
  178. -- low flags: 80
  179. -- high flags: A003
  180. -- rect: left=58 top=39 right=57 bottom=163
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Previous list
  189. ----- HyperTalk script -----
  190. on mouseup
  191.   openascii
  192.   writeascii "p"
  193.   put space into card field 1
  194.   displayscreen "dis","read now?"
  195.   NewsStateDef
  196.   closeascii
  197. end mouseup
  198.  
  199.  
  200.  
  201. -- part 22 (button)
  202. -- low flags: 00
  203. -- high flags: A003
  204. -- rect: left=393 top=325 right=341 bottom=487
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Speak Text
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   ReadField1
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 23 (button)
  221. -- low flags: 00
  222. -- high flags: A003
  223. -- rect: left=214 top=323 right=342 bottom=280
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: PANIC
  232. ----- HyperTalk script -----
  233. on mouseup
  234.   PANIC
  235. end mouseup
  236.  
  237.  
  238.  
  239. -- part 26 (field)
  240. -- low flags: 00
  241. -- high flags: 0000
  242. -- rect: left=308 top=57 right=71 bottom=512
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 9
  248. -- style flags: 256
  249. -- line height: 12
  250. -- part name: Listan Nimi
  251.  
  252.  
  253. -- part 28 (button)
  254. -- low flags: 00
  255. -- high flags: A003
  256. -- rect: left=207 top=26 right=46 bottom=349
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Reply to the person
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   go card "rn"
  268.   openascii
  269.   put number of lines of card field 1 of card "rn-send" into count
  270.   repeat with i=1 to count
  271.     get line i of card field 1 of card "rn-send"
  272.     writeascii it & return
  273.   end repeat
  274.   put space into card field 1
  275.   writeascii numtochar(4)
  276.   displayscreen "dis","%"
  277.   put space into card field 1
  278.   writeascii "fg" & return
  279.   displayscreen "dis","--more--","--read now?"
  280.   put empty into card field 1
  281.   writeascii "r" & return
  282.   displayscreen "dis","Prepare"
  283.   writeascii "/tmp/NewsSend" & return
  284.   displayscreen "dis","abort,"
  285.   writeascii "s" & return
  286.   displayscreen "dis"
  287.   if "signature" is in card field 1 then
  288.     writeascii "y" & return
  289.   end if
  290.   put empty into card field 1
  291.   displayscreen "dis","--what next?"
  292.   closeascii
  293.  
  294. end mouseUp
  295.  
  296.  
  297.  
  298. -- part 29 (button)
  299. -- low flags: 00
  300. -- high flags: A003
  301. -- rect: left=207 top=45 right=65 bottom=349
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: Reply to the list
  310. ----- HyperTalk script -----
  311. on mouseUp
  312.   go card "rn"
  313.   openascii
  314.   put number of lines of card field 1 of card "rn-send" into count
  315.   repeat with i=1 to count
  316.     get line i of card field 1 of card "rn-send"
  317.     writeascii it & return
  318.   end repeat
  319.   put space into card field 1
  320.   writeascii numtochar(4)
  321.   displayscreen "dis","%"
  322.   put space into card field 1
  323.   writeascii "fg" & return
  324.   displayscreen "dis","--more--","--read now?"
  325.   put empty into card field 1
  326.   writeascii "f" & return
  327.   displayscreen "dis","absolutely sure"
  328.   writeascii "y" & return
  329.   displayscreen "dis","Prepare"
  330.   writeascii "/tmp/NewsSend" & return
  331.   displayscreen "dis","abort,"
  332.   writeascii "s" & return
  333.   displayscreen "dis","--what next?"
  334.   if "signature" is in card field 1 then
  335.     writeascii "y" & return
  336.   end if
  337.   displayscreen "dis","--what next?"
  338.   closeascii
  339.  
  340. end mouseUp
  341.  
  342.  
  343.  
  344. -- part contents for card part 3
  345. ----- text -----
  346. Lines 4
  347.  
  348. -- part contents for card part 8
  349. ----- text -----
  350.  
  351.  
  352. -- part contents for card part 26
  353. ----- text -----
  354. <sfnet.juoru>